home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1043 / gepackt.exe / SPRACHEN / COBOL / COBOL_85.SSD next >
Encoding:
Text File  |  1992-08-01  |  2.0 KB  |  43 lines
  1. ; Graphischer Editor für Struktogramme (G.E.S.y) V2.1
  2. ;
  3. ; Dipl.-Ing. Michael Denzlein
  4. ; S.I.P.-Software Lösungen
  5. ; Griesäckerstr. 15
  6. ; W-8608 Memmelsdorf/Bamberg
  7. ;
  8. ; Quelltextskelett-Übersetzungsdatei für Cobol (85er Standard)
  9. ;
  10. ; Parameter:\$     Objektnamen einfügen
  11. ;           \#     Objekttext einfügen
  12. ;           \+     oberen Text eines FOR-Objektes einfügen
  13. ;           \@     Sohnliste hier einfügen
  14. ;           \%     Sohnliste unter einem Fallunterscheidungsobjekt einfügen
  15. ;           \iNAME Datei NAME einfügen (nur Großbuchstaben!)
  16. ;           \\     das \-Zeichen
  17. ;           \?     Meldungsbox (für in einer Sprache undefinierte Objekte)
  18. ;           \n     neue Zeile
  19. ;           \&xxx  in der Spalte weitermachen (Kommentarbeginn)
  20. ;           \>     ab der nächsten Zeile eine Tabulator-Position einrücken
  21. ;           \<     ab der nächsten Zeile eine Tabulator-Position ausrücken
  22. ;           \0..\9 Label-Nummern - pro Objekt 10 Stück
  23. ;           \p     Parameter-Liste (nur bei Procedur- und Root-Sinnbild)
  24. *.CBL
  25. \i COBOL.HDR\n\n\n
  26. \i SECTION.HDR\n      \&007* \#\n       \$ SECTION.\n\@       <ende>.\n           EXIT.\n      \&007* Ende von \$ \n\n\n
  27.       \&007* \#\n
  28.       \&007* \#\n
  29.       \&007* \#\n           PERFORM WITH TEST BEFORE UNTIL <Bedingung>.\n\>           \@        END-PERFORM.\n\<
  30.       \&007* \#\n           PERFORM WITH TEST AFTER UNTIL <Bedingung>.\n\>           \@        END-PERFORM.\n\<
  31.       \&007* \#\n           PERFORM VARYING <Var>\n           UNTIL <Bedingung>.\n\>           \@\n        END-PERFORM.\N\<
  32.       \&007* \#\n           IF <Bed.>\n\>\@\n\<           ELSE\n\>\@\N\<           END-IF.\n
  33.       \&007* \#\n           EVALUATE <Kriterium>\n
  34.       \n           END-EVALUATE.\N
  35.       \&007* \#\n
  36.            WHEN \#\n       \>\%\<
  37.       \&007* \#\n           PERFORM \$.\n
  38.       \&007* \#\n           GO TO <ende>.\n
  39.       ******** Parallel-Start \#\n\?
  40.       ******** Parallel-Ende  \#\n
  41.       ******** Parallel-Mitte \#\n
  42. Ja
  43.